home *** CD-ROM | disk | FTP | other *** search
/ Apple Developer Connection Student Program / ADC Tools Sampler CD Disk 3 1999.iso / Apple Development Tools / ToolServer 3.4.1.sit / ToolServer 3.4.1 / MWStartup•411 < prev    next >
Text File  |  1993-07-20  |  3KB  |  83 lines
  1. #    MWStartup•411
  2. #    July 20, 1993
  3. #    ©Copyright 1993 by metrowerks inc. All rights reserved.
  4.  
  5. #    411 startup script for use with the Metrowerks Environment and ToolServer.
  6. #    This script is a modified version of the UserStartup•Help script
  7. #    that comes with MPW 411. Because of the limitations of ToolServer,
  8. #    some functionality is not available, but the basic template and
  9. #    lookup functions are available.
  10.  
  11. #    Do not install this script unless you have 411 installed.
  12.  
  13. #    This script is derived from the 411 "UserStartup•Help" script,
  14. #    copyright ©1991, 1992 Apple Computer Inc.
  15.  
  16. #
  17. #        To automatically mount your 411 file server when MPW launches...
  18. #
  19. #     Set the "Help_Server" variable to the "zone:server:volume" where your "411"
  20. #    help folder resides.  Requires the MPW 3.2 Choose command.
  21. #
  22.     
  23.     Set Help_Server     ""  # "Development Tools:Okefenokee:The Star:"
  24.     Set Guest           0    # set to 1 # if you want to log on as guest, else set to 0.
  25.     
  26.     IF "{Help_Server}" != ""
  27.         if not "`Exists "{Help_Server}"`"
  28.             IF {Guest}
  29.                 Choose "{Help_Server}"  -guest
  30.             Else
  31.                 Choose "{Help_Server}"  -u "{User}" -askpw
  32.             End
  33.         End
  34.     End
  35.  
  36. #    Set type of header - default is abreviated header
  37.  
  38.     Set headerStyle    -h2    # Set headerStyle -h # Expanded header -lists all files searched
  39.     
  40. #    Specify the help directory
  41.     
  42.     Set HelpDirectory "{ShellDirectory}Help Folder:"
  43.         
  44. #    Get the location of:
  45. #    ... the 411 directory, 
  46. #    ... the current 411 template and 
  47.  
  48.     if not "`Exists "{HelpDirectory}"`"
  49.         NewFolder "{HelpDirectory}"
  50.     End
  51.  
  52.     if  "`Exists "{HelpDirectory}"Help_Folder`" 
  53.         Set Help_Folder     "`Catenate "{HelpDirectory}"Help_Folder`"; set filesStatus 0;∂
  54.         set exit 0;(set x "`Files "{Help_Folder}"≈Help`") ≥dev:null; Set filesStatus {status}; ∂
  55.         if "{x}" != ""; set filesStatus 1; end; set exit 1; ∂
  56.     End
  57.     
  58.     if not "`Exists "{HelpDirectory}"Help_Folder`" || not "`Exists "{Help_Folder}"`" || !{filesStatus}
  59.         Set exit 0; Set temp "{Boot}"; Loop; ∂
  60.         Set temp "`(GetFileName "{temp}" -q -d -m "Where is your ∂"411∂" folder?")≥dev:null`"; ∂
  61.         if "{temp}"!=""; Echo -n "{temp}" > "{HelpDirectory}"Help_Folder; ∂
  62.         Set Help_Folder "{temp}"; Else; set exit 1; exit; End; ∂
  63.         (set x "`Files "{temp}"≈Help`") ≥dev:null; ∂
  64.         if  "{x}"==""; Alert 411 - The ∂"{temp}∂" folder does not contain Help files.; else; break; end; End; ∂
  65.         set exit 1 ; ∂
  66.     End
  67.  
  68.     if not "`Exists "{HelpDirectory}"Help_Files`"
  69.         Set exit 0;(Files "{Help_Folder}"≈Help -q)≥ dev:null > "{HelpDirectory}"Help_Files;set exit 1
  70.     End
  71.     
  72.     Set Help_Folder     "`Catenate "{HelpDirectory}"Help_Folder`"
  73.  
  74.     Export HelpDirectory
  75.     if not "`Exists "{HelpDirectory}"Help`"
  76.         Echo  > "{HelpDirectory}"Help
  77.     End
  78.  
  79. #    Advise the Metrowerks Environment that we've started up 411
  80.  
  81.     RMetrowerks '411•' ''
  82.  
  83.